RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Process .STYLE HEADERS command 16-Sep-1984 01:49:4 VAX=11 Bliss-32 Page 1 STK 

ergee=1 38 P:bai7s «| ie SumGhAStencchUNOre SRcISTHL.BLIshe em” «1 v04 
$00) QO ZTITL -process »STYLE HEADERS command’ ; 
Oe ) MODULE STHL ( F 
000 IDENT = 'V04-000' 3 
0004 %BLISS320 ; 
8082 ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) : 
9007 de : 
0008 1 BEGIN : 
bo10 
Bats : RNAI aPtreigt Sek oany ears etn en ree eaesenci : 
'® * 3 
$078 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 5 
0014 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * F 
Bot? : is ALL RIGHTS RESERVED. * 3 
! * ; 
0017 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 3 
0018 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * F 
0019 1 !* INCLUSION tH ABOVE gil NOTICE. THIS SOFTWARE OR ANY OTHE * 3 
0020 1 !* COPIES THEREOF MAY NOT B VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
0021 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * F 
OOss : * TRANSFERRED. * F 
tw * 3 
OOSe 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 5 
pees ! 8 CORPORATION. a : 
! * 3 
0028 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
5 94 ; :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : : 
i : 
0033 ladughebeberdienenieneiandebtebiuceaseraneetersinrmaneniaaareemenenens P+ 
! 3 
0034 1 i++ : 
B88? ! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
sit $4 ' ABSTRACT: Processes the .STYLE HEADERS command : 
0039 1 | F 
rt ' ENVIRONMENT: Transportable : 
0042 1 ! AUTHOR: R.W.Friday CREATION DATE: April, 1979 ; 
0043 1! : 
| ; 


STHL Process .STYLE HEADERS command Ibese - 149:4 X-11 $-32 V4.0-74 STK 
¥04-000 Revision History op-188e 4:68:18 SKSUMSMASTERSCRUNOFE “SRCISTHL.BLIZ1° (25 

; ¢g oes ! peerne "Revision History' 

Bay Q4g | { MODIFIED BY: 

> 49 048 1! 004 REMO0004 Ray Marshall 07-Mar-1983 

3 0 be 1 i =1008s edit of all ‘eodules. Updated Hd py names, idents, 

: iF i & copyright dates. Changed require files to BLISS library. 

; 0052 1 i- 
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ess .STYLE oy pow iy Be. command 
le Level Dec on 


SSBTTL "Module Level Declarations’ 


arat 
TABLE OF CONTENTS: 


' 
; INCLUDE FILES: 


RAR 
RE "REQ:RNODEF'; 
Ss 


RPLUS %THEN 


A 
Ul 
Dd 
RARY 'REQ:DPLLIB'; 


i EQUATED SYMBOLS: 


i OWN STORAGE: 


EXTERNA 
: NOMBER_L 


EXTERNAL ROUTINE 
GLNM; 


Y 'NXPORT: XPORT® ; 


RARY ‘REQ:DSRLIB'; 


i EXTERNAL REFERENCES: 
HLC i HLC DEFINITION, 
NMLS 


1Eoseoctgpe 01:49:44 


' XPORT Library 
' RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 
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ess .STYLE HEADERS command 


144 
} FUNCTIONAL DESCRIPTION: 


9 
1984 01:49:4 AX-11 Bliss- 4 
ae TT me Se YS Pe 


RSBTTL 'STHL ==" 
GLOBAL ROUTINE sthl (handler_code) :NOVALUE = 


STHL processes the .STYLE HEADERS command, which specifies 
how text given on a .HEADER LEVEL command is to be processed. 


FORMAL PARAMETERS: 


HANDLER_CODE is a dummy, used just for conformance. 


IMPLICIT INPUTS: 


There are 9 legal arguments that can be supplied fo -STHL. They are gotten 
by GLNM(9) at the beginning of this routine. The 9 arguments control the 
following things: 


ni: Heads at this level or higher (smaller n) are made all-cap. Default 1 
né: Heads at this level and lower (larger n) are cap-lower-case. Default 
n3: Heads at this level and lower are run-in heads. Default 5. ?? 

n4: Heads at this level and lower are not numbered. Default 7. 

n5: Heads at this level and lower, if not run-in, are gonteree, Default 7 
n6: This many Lines are skipped before heads. Default 2. 2? 

n7: This many Lines are skipped after heads. Default 1. ?? 


a 


F 


74 
F 


2 
) 


n8: An implied test-page of this many Lines is done before heads. Default 3. 2? 
n9: This many spaces are inserted after header number, before title. Default 1. 


IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 


'Get ppreneters: 
glnm(9); 


'If any pecegeter is in error don't do anything but return. 
INCR i FROM 1 TO .nmlst_count DO 

.nmist_descr (.7) EQL nm_bad THEN 

RETURN; 


!'Process parameters 


! First parameter specifies lowest .HL command that generates 


' a “‘runon” heade 


fe 
IF .nmlst_count GEQ 1 THEN ! First, be sure there was at least 1 parameter. 
eng tet Moser th) NEQ nm_null ! Be sure this parameter was specified 
hle_runon = .nmlst_value(1);! Assign first value to ‘'runon’’ 
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JA. 1984 01:49:4 VAX-11 Bliss-32 V4.0-742 P 
27800-1382 at eee! DISKSVMSMASTER:CRUNOFF .SRCISTHL.BLI:1- “ah 


ess .STYLE HEADERS command ! ge 
IF gra jgt_count GEQ 2. THEN ! if at least two parameters specified 
IF_ .nmlst_descr(2) NEQ nm_null ! Be eure second parameter was 
THEN : cified 


! spe 
hlc upper = .nmlst_value(2);! Assign its value to ‘'all upper case"’ 


‘Make sure there was 3 third parameter specified. 
IF sat et.count GEQ THEN 


4 gl et.doser (5) NEQ nm_null !Be sure third parameter was specified 


9 hlc_cap = .nmlst_value(3); ‘!Assign third value to ‘capitalize first character". 

9 ‘Make sure there was a fourth parameter specified. 

4 IF gpaiet.count GEQ 4 THEN 
8 9 ‘If the fourth parameter was not a dummy, get its value. 

9 IF .nmlst_descr(4) NEQ nmm_null THEN 
8 : hlc_no_number = .nmlst_value(4); 
030 ‘Make sure there was a fifth parameter specified. 
835 IF gla} at .count GEQ 5 THEN 
$39 ‘Process fifth parameter only if it was not null 
835 enmist_descr(5) NEQ nm nul} THEN 
Babe hlc_center = .nmlst_vaTue(5); 
0307 
0308 enmlst_count GEQ 6 
0309 EGIN 
0310 ‘Process sixth parameter only if it was not null. 
0311 IF .nmlst_descr(6) NEQ nm_null 
B36 hlc_headlb = .nmlst_vaTue(6); 
0314 'Make sure there was a seventh parameter specified. 
0 1? IF gna) et_count GEQ 7 THEN 
6 19 'Process the seventh parameter onty if it wasn’t null 
0 IF .nmlst_descr(7) NEQ mm_null THEN 
8 y hlc_headic = .nmlst_value(7); 

1 ‘Make sure an eighth gorens cer was specified 
§ g02jgt.count GEQ THEN 


'Process the eighth poreneter poly if it wasn't null. 
IF .nmlst_descr(8) NEQ nm_nul HEN 
hlc_headlt = .nmist_vaTue(8); 


‘Make sure a ninth peceneter was specified 
IF goo} at.count GEQ 9 THEN 


‘Process the ninth parameter only if it wasn't null. 
-nmlst_descr(9) NEQ nm nuts THEN 
: hlc_headdsp = .nmist_value(9); 
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'Make sure there was a sixth parameter specified. 
IF THEN 
END; 
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STHL erecess «STYLE HEADERS command 


\V04-000\ 
HLC, NMLST, GLNM 
SCODES,NOWRT,2 
STHL, Save R2,R3 
HLC+8, RS 
" LST, R2 
#1, GLNM 
NMLST, R1 

$ 
NMLST+160CIJ, #4 
2s 
R1, I, 1$ 
R1 

3$ 
NMLST+164 
NMLST+4, HLC+8 
R1, #2 


12 
NMLST+168 
NMLST+8, HLC 
Ri, #3 


wusTotre 
NMLST#+12, HLC+4 
R1, #4 


12 

LST +176 
NMLST+16, HLC+28 
Ri, #5 


1 
NMLST+180 
NMLST+#20, HLC+36 


$-32 V4.0-742 
TER: CRUNOFF.SRCISTHL.BLI; ? 


STHL Process .STYLE HEADERS command 18-se Sep-1984 74 VAX-11 $-32 0-742 7 
v04-000 STHL == 1 ~3007} 382 9}: $B; 13 Disk SKS$V nen TER: chuNore SRCISTHL.BLI;1 fage (4) 
06 1 7C 8S: CMPL =soR1, #6 3 0308 ; 
: ° 7F BLSS 1 : : 
0088 f p ; stl NMLST+184 + 0311 : 
10 As 18 A2 D MOVL #$NMLST4#24, HLC+24 : 0312 ; 
: 35 49 fooer ass tag hee 
00BC c 0 TSTL NAL ST+188 + 0318 3 
BEQL 10 : : 
08 a3 1c =A2 D 9 MOVL #NMLST+28, HLC+16 : 9319 ; 
0 51 01 9C 10$: CMPL =RI, #8 : : 
ip 1 OF BLSS 128 : F 
00c0 ¢ p al si NMLST+192 : 0325 : 
Oc a3 20 Ae D On? MOVL §-NMLST#32, HLC+20 : 0326 ; 
09 51 01 AC 118 CMPL R11, a9 : 03 : 
0B 19 OO0OAF BLSS 1 : : 
00¢4 ¢ b3 081 TSTL NMLST+196 : 0332 ; 
1 085 BEQL ; ; 
18 =A3 24 A2 00 00087 MOVL §NMLST+36, HLC+32 : 0333 ; 
04 000BC 12$: RET 3 0345 : 
; Routine Size: 189 bytes, Routine Base: $CODE$ + 0000 
: 319 0346 1 END ‘End of module : 
; 220 0347 0 ELUDOM : 
: PSECT SUMMARY 3 
: Name Bytes Attributes ; 
$ $CODES 189 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
Hy Library Statistics 
ye eee eee eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 59 0 252 00:0 
> 7$255$pUAz28: ‘Favabee SRCJDSRLIB.L32;1 1348 8 1 ra 00: ‘00:2 2 


: COMMAND QUALIFIERS 


H 9 
Process .STYLE HEADERS command 16-Sep-1984 01:49:4 X-11 ss-32 V 742 Pa 
STHL == 4 900-1 3h 9356831 aKSVM STER:CR NUNOFF. SRCISTHL.BLI;1 m9 «aS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:STHL/OBJ=OBJ$:STHL MSRC$:STHL/UPDATE=(ENHS$:STHL) 
189 $f + 0 data bytes 


Size: 

Run "tee: 8 : 
Elapsed Time: : 
Lines/CPU Min: 9 
Lexenes/PU=Mip: 2554 
pee | Used: 70 pages 
Compilation Complete 
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